ASSMX @ 9400 


0081 
9083 


080B 
O0B8D 
0810 
BB12 
0815 
0018 
OB1A 
QO1B 
B@1C 
OB1F 


0B 
0B 
01 


02 
04 


04 


0010 
9026 
0030 


@840 * VERSION 2.2 


9420 
0430 
0442 


0450 


0488 
9498 


0540 
0550 


0568. 


0570 


~~ 8580. 


KK KKKKKEKEKKKKKAAKRKKAKKKAKAANK aa K KK KKK KR KR KKK 


 EXATRON STRINGY FLOPPY MONITOR * 
* PART 


* 


2-*- TAPE COMMANDS * 


(RAM VERSION) 18-15-78 * 


kk kkkkkkkkkkkkkkkekkekekekekekKekkkekkekekkkakkk kk tek kk 


* 
* WRITTEN BY: CHARLIE PACK 
. 25478 ELENA ROAD 
LOS ALTOS HILLS, CA. 94822 
* (415) 941-8495 EVENINGS 
* 
* CHANGES FROM VERSION 2.1 ARE: 
* 1. EQUATES TO EXTERNAL REFERENCE TABLE 
(IN PART 1) HAVE BEEN ADDED FOR CALLS 
* TO ESF UTILITY. 
* 2, LOADER CONTROL BYTES CHANGED TO BE 
* COMPATIBLE WITH NEW LINKING LOADER. 
* 
PART2 EQU §$ 
PART] EQU PART2-400H ;ESF MONITOR PART 1 
MONTR EQU PART1+@23H ;MONITOR RE-START 
ADRNG EQU PART1+250H 
ADRIN EQU PART1+267H 
INPHX EQU PART1+274H 
OUTHX EQU PART1+2E6H 
WAIT EQU PART1+301H 
OUTBL EQU PART1+315H 
OUTSP EQU PART1+324H 
OUTNL EQU  PART1+331H 
INASC EQU PART1+33EH 
PANIC EQU PART1+359H 
OUTCH EQU PART1+3BAH 
* 
* POINTERS TO EXTERNAL REFERENCE TABLE IN PART 1 
* 
ECAT EQU PART1+3E7H 
EGET EQU PART1+3ECH 
ESAV EQU PART1+3F1H 
ECER EQU PART1+3F6H 
EWTP EQU PART1+3FBH 
* 
RC2 EQU 2 ;"FILE NOT FOUND" RETURN CODE 
RC5 EQU 5 ;"WRITE PROTECTED" RETURN CODE 
: | 
START DI ;PROGRAM IDENTIFIER 
CPI 'C'  ;C=CATALOG OR CERTIFY? 
JZ  CACE ;YES 
CPI 'G'  ;G=GET? 
JZ GET ;YES 
CPI 'S'  ;S=SAVE? 
JZ SAVE ;YES 
CPI ‘W' ;W=WIND TAPE? 
JZ WTP ;YES 
LDA START+40@H ;CHECK FOR THIRD 
CPI Q@F3H ;PART OF ESF MONITOR 
RNZ ;RETURN IF NOT PRESENT 
MOV A,B  ;RESTORE COMMAND CHAR, 
JMP START+4Q0H ;GO TO THIRD PART 


WAO1F 


0022 
0024. 


0027 
QO2A 
09028 


692D 


0830 
0832 
9835 
0036 
9036 
8236 
0036 
0039 
VB3C 
003F 
0042 
9843 
0046 
0846 
0047 
O04A 
904B 
BV4C 
904D 
0958 
0053 
0256 
BH59 
OO5A 
®@95D 
0@5D 
0060 
0063 
0064 
0867 
OQ6A 
G86D 
0870 
0873 
0073 
02076 
0279 
007B 
OO7E 
O08 
BO84 


A590 


B600 
06190 
0620 
0630 
06 40 
0658 
0660 
0670 
0688 
0690 
0709 
0718 
0720 
0730 
0748 
0750 
0760 
0770 
0780 
0798 
8800 
0810 
0820 
0838 
0848 
0858 
0860 
0870 
0880 
0898 
9908 
0918 
0920 
0930 
0948 
0950 


8968 


B970 
0980 


0990 


18080 
1010 
1828 
1930 
1840 
10650 
1068 


* 


* DISPLAY 


* 
CAT 


CAT2 


CAT 3 


CALL 
CALL 
LXI 
CALL 
XRA 
STA 


XRA 
STA 


INASC ;GET 2ND LETTER OF COMM, 


21H ; CONTROL CHARACTER? 
CACE ;YES, IGNORE IT. 
OUTCH ;ECHO IT 

A,B  ;RESTORE IT 

‘A! *CA=CATALOG DISPLAY? 
CAT °YES | 

"ES ° CE=CERTIFY? 

CER °YES 


; IGNORE INVALID COMMAND 
CATALOG OF ALL FILES ON TAPE 


WAIT 
OUTNL 
H,F CBHD 

OUTBL ;DISPLAY THE HEADING 

A 

FCBFP ;SET ZERO FILEPOSITION 


;ABORT OR CONTINUE 


A 
FCBRC ;SET ZERO RETURN CODE 
A 
H,A *INITIALIZE FCB WITH 
L,A ;ALL DUMMY VALUES. 
FCBID | 
FCBBG 
FCBAS 
FCBER 
H »>HL=0 
FCBEN 
OUTNL 
H,FCB ;HL=&FCB 

*LOADER CONTROL BYTE 
ECAT ;:GET CATALOG FOR NEXT FILE 
CAT3 ;:JUMP IF END OF TAPE 
DFCB ;DISPLAY CONTENTS OF FCB 
PANIC :"PANIC CHECK" 
CAT2 | 
FCBFP 
H,SYSMD 
2 sWERE ANY FILES FOUND? 
MSOU2 ;YES, DISPLAY "DONE" 


H,UTIM2 ;NO, DISPLAY ERROR MSG. 
MSOU2 | 


0084 
0084 
02084 
0887 
8289 
OB8C 
QO8E 
0091 
0993 
0896 
0899 
QOB9C 
OY9C 
G@9D 
BOAO 
OGA2 
GBA3 
QBAG 
OOA8 
OBA 
Q9BAC 
QVAE 
OBAF 
QG8B2 
OOB4 
08B? 
00B8 


 @OOBA 


®MBD 
OOBF 
GBC2 
QOC3 
OBC 
QOBCE6 
98C9 
OBCC 
0OCD 
QD 
@9D3 
UVOD4 
O8D7 
08D? 
GOD8 
B2D9 
BODA 
08DD 
QOBED 
OBEL 
OBE4 
OBE? 
OHEY 
OOEA 
Q9ED 
OOFO 
OOF3 
OOF3 
OOF6 
OOF9 


00 


82 


1078 


* 


1980 * GET OR VERIFY A TAPE FILE 


1090 
1109 
1116 
1128 
1130 
1140 
1158 
1168 
1179 
1180 
1196 
1200 
1210 
1220 
1238 
1249 
1258 
1260 
1278 
1280 
1290 
1306 
1310 
1320 
1330 
1340 
1358 
1360 
1376 
1388 
1390 
1490 
1410 
1420 
1430 
1440 
1458 
1460 
1476 
1489 
1498 
1508 
1510 
1520 
1530 
1546 
1550 
1560 
1570 
1580 
1590 
1608 
1610 
1620 


* 


GET 


GET@2 


* 


GETTY 


GET@3 


GETO@4 


GET@5 


* 


GETID 


* 


* 


CALL 
CPI 


1638 GET@6 CALL 
1649 GET@7 SHLD 


INASC 
i 
GET@ 2 
‘Vy! 
GET®@2 
> 
GET 
FCBOP 
OUTCH 


C,B 
INASC 
A,'x' 
C 
GET@4 
A, 20H 
B 
GET@ 3 
A,*A' 
B 
GETTY 
5 eae: 
GETO5 
A,B 
‘A! 


GETTY 
784] 


GETTY 
H,A 
OUTCH 


INPHX 
GETID 
L,A 

FCBID 


7;GET OPTION 
;CHECK FOR VALID OPTION 
7BRANCH IF O.K. 


*IGNORE INVALID OPTION 
;OPTION TO FCB 
*ECHO IT 


*C=OPTION 
sGET FILE TYPE 


*>AUTO-EXECUTE OPTION? 
*=NO 


;VALID FILE TYPE? 
;YES 


>;NO, IGNORE IT 
,H=FILE TYPE 


;VALID FILE TYPE? 
;NO, IGNORE IT 


>YES, H=FILE TYPE 
>ECHO FILE TYPE 


*GET FILE ID 

;MUST ENTER 

*L=FILE ID 

;FILE ID/TYPE TO FCB 


H,SYSMI 


A 
MSOUT 


A 


H,A 
L,A 
FCBRC 
FCBEN 
H 
FCBAS 
FCBER 
A,'x! 
C 
GETO6 
ADRIN 
GETO7 


WAIT 
FCBBG 


°FILE ID=@? 
*YES, INVALID 


;OET ZERO RETURN CODE 
; INITIALIZE FCB 
;HL=DUMMY ADDRESS 


*>AUTO-EXECUTE OPTION? 
°YES | 

>GET OPTIONAL BEGIN, 
*>JUMP IF NOT ENTERED 
>HL=BEGIN. ADDRESS 
*ABORT OR CONTINUE 
*BEGIN. ADDR TO FCB 


ADDR 


BBEF9 


F3 
69 


Fl 


FB 
FF 


61 


FB 


GET@9 


CHKAS 


CHKA2 


;HL=&FCB 


; LOADER CONTROL BYTE 
;CALL ESF "GET" UTILITY 


;AUTO-EXECUTE OPTION? 
eNO 


;WERE THERE ANY ERRORS? 
;YES, NO AUTO-EXECUTE 
CHECK AUTOSTART 

;JUMP IF CAN'T AUTOSTART 


;YES. JUMP TO PROGRAM 


H,SYSMA 


OUTBL 
OUTNL 


A 
FCBFP 


;DISPLAY ERROR MSG. 


;FILE POSITION=@ 


H,FCBHD 


OUTBL 
OUTNL 
DFCB 

OUTNL 


FCBRC 
A 

GETO9 
ERMSG 
MONTR 


CHKAS 
FCBOP 


;DISPLAY THE HEADING 


;DISPLAY CONTENTS OF FCB 


sWERE THERE ANY ERRORS? 
eNO 
*>DISPLAY THE ERROR MSG. 


;SAVE AUTOSTART (IF ANY) 


H,SYSMD 


Ys 
MSOU2 


;VERIFY OPTION? 
7;NO, DISPLAY “DONE" 


H,SYSMO 


MSOU2 


FCBAS 


;YES, DISPLAY "FILE O.K." 


;IS AUTOSTART = @FFFFH? 
°Z ON = CAN'T AUTOSTART 
;GET MEMORY BYTE 
*PROGRAM ID BYTE? 

°YES 

°>Z ON = CAN'T AUTOSTART 
;SAVE AUTOSTART ADDR 

eZ OFF = AUTOSTART O.K. 


916E 
G16E 
G16E 
O16F 
8172 
9173 
9176 
8179 
G17B 
G1T7E 
6182 
8183 
9185 
8188 
B18A 
B18D 
8199 
9190 
9193 


G195- 


9198 
Q19A 
G@19D 
B1AD 
D1A3 
B1A3 
B1A6 
BiAY 
@1AC 
® LAD 
B1Bg 
B1B2 
®1B5 
G1B8 
01iB8 
Q1BB 
B1BB 
GLBC 
O1BF 
G1CG 
@1C3 
B1C3 
B1C5 
G1C7 
§1C8 
D1ICA 
®B1CD 
91D 
91D3 
@1D3 
G1D4 
G1D6 
B1D9 
@1pc 
Q1DF 


2220 
2238 
22408 
2250 
2260 
2270 
2280 
2298 
2300 
2310 
2320 


2330. 


2340 
2350 
2360 
2370 
23880 
2390 
2400 
2416 
2420 
2436 
2440 
2450 
2468 
2470 
2480 
24980 
2506 
25190 
2528 
2530 
2540 
2556 
2568 
2578 
2588 
2598 
2602 
2618 
26290 
2630 
2648 
2650 
2660 
2670 
2688 
2690 
2700 
2710 
2720 
2730 
2748 
2750 
2760 


* 


* SAVE A BLOCK OF DATA ON TAPE 


* 


SAVE 


SAVE2 


SAVE5 


SAVE6 
SAVE7 


XRA 


JNZ 
CALL 
SHLD 


A 
FCBRC 


H,SYSMI 


A 
MSOUT 
OFFH 
MSOUT 
FCBID 


ADRNG 


FCBBG 


FCBEN 


s;SET ZERO RETURN CODE 
7;ACC.=] 

*;DEFAULT FILE POS. 
7;GET FILE POSITION 
7;USE DEFAULT? 

?YES 

;VALID FILE POSITION 1-9? 
;NO, IGNORE IT 


TO FCB 


;CONVERT TO BINARY 
;FILE POSITION TO FCB 
;ECHO IT. 


>GET FILE TYPE 
;VALID FILE TYPE? 
>NO, IGNORE IT 


;FILE TYPE TO FCB 
*ECHO IT 


;GET FILE ID 
;MUST ENTER 
;&ERROR MSG. 
71S IT ZERO? 
;YES, NOT VALID 
;IS IT 255? 
;YES, NOT VALID 
;FILE ID TO FCB 


;GET BEGIN. & ENDING 
;ADDR OF BLOCK IN DE, HL 
;BEGIN. ADDR TO FCB 


;ENDING ADDR TO FCB 


H,@FFH ;THIS VALUE IS A 


L,OFFH 


A,B 
a 
SAVE6 
ADRIN 
SAVE? 


A,M 
OF3H 
INVAS 
WAIT 
FCBAS 


;DUMMY AUTOSTART. 

; ABSOLUTE LOAD MODULE? 
7;NO - USE DUMMY AUTOSTART 
;GET AUTOSTART ADDR 

;JUMP IF NOT ENTERED 
;HL=AUTOSTART ADDR 


*VALID AUTOSTART ADDR? 
;NO | 

»ABORT OR CONTINUE 
AUTOSTART TO FCB 


@O1DF 
QP1E2 
G1E5 
G1E6 
Q1E9 
91E9 
Q1EC 
Q@1EF 
G1FO 
G1F3 
@1F6 
G1F9 
G1F9 
G1FC 
Q1FF 


F3 
31 


Fl 


F3 
9E 


72 
Dl 
23 


74 
6F 


INVAS 


H,FCB ;HL=&FCB 
OUTNL 

;LOADER CONTROL BYTE 
ESAV ;CALL ESF "SAVE" ROUTINE 
FCBRC ;RETURN CODE 
H,SYSMD ;&MESSAGE 
A ;WERE THERE ANY ERRORS? 
MSOU2 ;NO, DISPLAY “DONE" 
ERMSG ;DISPLAY AN ERROR MSG. 
MONTR 
H,SYSMA ;&MESSAGE 
MSOUT 


O1FF 


Q1FF 
Q1FF 
O1FF 
Q1FF 


9202 
8205 
9208 


62D 
020F 


Q21A 
8218 
B21E 


2928 
2930 
2940 


2950 


2966 
2970 
2980 
2998 
3668 
3810 
30208 
3030 
3040 
3050 
3060 
3070 
3082 
3096 
3108 
3110 
3128 
3130 
3148 
3158 
3160 
3170 
3189 
3190 
3200 
3210 
3220 


3230 


3248 
3256 
3260 
3270 
3280 
3298 
3300 
3318 
3320 
3330 
3348 
3350 
3368 
3370 
3380 
3390 
3400 
3419 
3428 
3430 
3449 


+ + £ + + & 


CER 


CER2 


CER3 


CER4 


CER5 


CERTIFY A TAPE, 
DUMMY FILE AND THEN READS IT BACK, REPOR- 
TING ERROR CONDITIONS. 
TINUES UNTIL INTERRUPTED BY THE 
CHARACTER FROM THE CONSOLE KEYBOARD.) 


CALL 
CALL 
LXI 


CALL 


MVI 


THIS ROUTINE WRITES A 


THE PROCESS CON- 
"PANIC" 


WAIT ;ABORT OR CONTINUE 

OUTNL 

H,SYSMS 

OUTBL ;DISPLAY SIZING TAPE MSG. 


H,@FFH 
L,@FFH 


;SET ESTIMATED 
;CAPACITY TO 65535 


H 7 (SP) =CAPACITY 
;LOADER CONTROL BYTE 
;CALL ESF "CERTIFY" 
;JUMP IF ANY ERRORS 
;JUMP IF NOT EOT 


ECER 
CER3 
CER4 


;(SP)=UPDATED CAPACITY 
H,SYSMC | | 
OUTBL ;DISPLAY APPROX. CAPACITY 
H ;HL=UPDATED CAPACITY 
DWOUT 
CER5 


RC5 
CERWP 
RC2 ;WAS DUMMY FILE FOUND? 
CER4 ;YES 

H,UTIM2 

OUTBL ;DISPLAY AN ERROR MESSAGE 
H ; HL=CAPACITY 

CER5 


7;WRITE PROTECTED? 
7;YES 


H ;(SP)=ERROR COUNT 
H,SYSME 

OUTBL ;DISPLAY THE ERROR COUNT 
H *HL=ERROR COUNT 

DWOUT 

H > HL=CAPACITY 


PANIC 
OUTNL 
H > (SP) =CAPACITY 
H,SYSMT 

OUTBL ;DISPLAY "TESTING" 
H eHL=CAPACITY 

CER2 


;"PANIC CHECK" 


H,UTIM5 
MSOUT 


;&WRITE PROTECT MSG. 


ROUTINE 


O25F 
O25F 
O25F 
O25F 
9262 
0265 
0266 
9269 
G26C 
026F 
026F 
O26F 
O26F 
Q272 
@275 
0278 


el 
31 


FB 
9E 
72 


Jd 
15 
23 


3458 
3460 
3470 
3480 
3490 
3500 
3510 


3520 — 


3530 
3540 
3558 
3568 
3570 
3580 
3598 
3600 


P 
* WIND TAPE — MOVES REFLECTIVE SPOT TO 
* EXPOSED POSITION, 


& 
WIP CALL WAIT ;ABORT OR CONTINUE 
| CALL OUTNL 

NOP ; LOADER CONTROL BYTE 
CALL EWTP ;CALL ESF "WIND TAPE" RTNE 
LXI H,SYSMD 
JMP MSOU2 ;DISPLAY "DONE" 

* 

* DISPLAY A MESSAGE & RETURN TO COMMAND MODE. 


* 


MSOUT CALL OUTNL 
MSOU2 CALL OUTBL ;DISPLAY AN ERROR MSG. 
JMP MONTR 


3610 * | | 
9278 3628 * DISPLAY ENTIRE CONTENTS OF FILE CONTROL BLK 
0278 3630 * EXIT: B, HL DESTROYED 
8278 3640 * | | ) 
9278 3A F3 FB 36580 DFCB LDA FCBRC ;RETURN CODE 
827B CD E6 FE 3660 CALL OUTHX 
G27E 3E 62 3670 MVI A,2 
0288 CD 24 FF 3688 CALL OUTSP | 
0283 3A F5 FB 3698 LDA FCBFP ;:FILE POSITION 
0286 CD E6 FE 3700 CALL OUTHX 
9289 3E 03 371¢@ MVI A,3 
@28B CD 24 FF 3720 CALL OUTSP 
Q028E 3A F7 FB 3730 LDA FCBTY :FILE TYPE 
@291 47 3740 MOV B,A 
9292 CD BA FF 3750 CALL OUTCH 
9295 3E 92 3760 MVI A,2 
0297 CD 24 FF 3770 CALL OUTSP 
029A 3A F6 FB 3780 LDA FCBID ;:FILE ID 
Q@29D CD E6 FE 3799 CALL OUTHX 
Q92A0 3E 03 3880 MVI A,3 
Q02A2 CD 24 FF 3810 CALL OUTSP 
02A5 2A F8 FB 3820 LHLD FCBBG ;BEGIN. ADDR 
02A8 CD C9 @2 3830 CALL DWOUT 
@2AB 3E 93 3840 MVI A,3 
Q2AD CD 24 FF 3850 CALL OUTSP | 
02B0 2A FA FB 3860 LHLD FCBEN ;ENDING ADDR 
02B3 CD C9 @2 3870 CALL DWOUT 
02B6 3E 63 3880 MVI A,3 
02B8 CD 24 FF 3890 CALL OUTSP 
02BB 2A FC FB 3900 LHLD FCBAS ;AUTOSTART ADDR 
O2BE CD C9 62 3910 CALL DWOUT 
Q2Cl 3E 04 3920 MVI A,4 
@2C3 CD 24 FF 3930 CALL OUTSP 
@2C6 2A FE FB 3940 LHLD FCBER ;ERROR DATA ADDR 
@2C9 7C 3958 DWOUT-MOV A,H 
G62CA CD E6 FE 3960 CALL OUTHX 
82CD 7D 3978 MOV A,L 
@2CE C3 E6 FE 3982 JMP OUTHX 
@2D1 3999 * 
@2D1 4908 * DISPLAY ERROR MESSAGE DEPENDING ON BINARY 
@2D1 4018 * CODE IN ACC. IF ACC. = 1, DISPLAY UTIMI1; 
@2D1 4920 * IF ACC. = 2, DISPLAY UTIM2; AND SO ON, 
@2D1 4830 * IF ACC. = ® OR NO CORRESPONDING MESSAGE 
@2D1 4049 * THEN DO NOTHING AND RETURN. 
@2D1 4650 * EXIT: BC, HL DESTROYED: DE NOT USED. 
@2D1 4060 * 
$2D1 B7 4070 ERMSG ORA A >ACC.=0? | 
@2D2 C8 4080 RZ °YES, RETURN 
02D3 21 13 @3 4890 LXI H,UTIM1 ;&FIRST MSG. 
@2D6 06 OG 4108 MVI B,@ 
@2D8 4E 411@ ERMS2 MOV C,M >BC=LENGTH OF MSG, 
G2D9 OC 4120 INR C *-PLUS 1 FOR LENGTH BYTE 
Q82DA C8 4130 RZ eRETURN IF NO MORE MESSAGES 
92DB 3D 4140 DCR A *>DECR. ACC.; WHEN ZERO 
62DC CA 15 FF 4150 JZ OUTBL ;DISPLAY MSG. AND RETURN 
Q@2DF 09 4160 DAD B >POINT TO NEXT MSG. 
Q@2E8 C3 D8 @2 4179 JMP ERMS2 ;:AND TRY AGAIN 


02E3 


O2F7 


0313 
0314 


0326 
8327 


0335 
6336 


9342 
0343 


Q34F 


0356 ° 


@35F 
9360 


0373 
G374 


4188 


4190 


4200 
4210 
4220 
4230 
4240 
4258 
4260 


4279 


4280 
4298 


4300 
4310 


4320 
4330 


4349 
4350 


4360 
43790 


4380 
4390 


4400 


* : 
RAEKKKKKKKKKEKAKKKKEKKEKKKKKKRaEKKKKRKKKKKKKKKR KKK EE 


* SYSTEM MESSAGES AND HEADINGS * 


KkKKKKKKKKKKKKKKKKRKKKRKKK KKK KK KK KKK KKK KKK KK 


ke 
DB 49H >LOADER CONTROL BYTE 
DW MSEND-FCBHD ;DATA BYTE COUNT 
FCBHD DB  UTIM1—FCBHD-1 
ASC ‘RC FP TY ID ' 
ASC 'BEGINS ENDS AUTOST ERRADR' 
UTIM] DB UTIM2-UTIM1-1 
ASC ‘MANY PARITY ERRORS’ 
UTIM2 DB UTIM3~UTIM2=1 
ASC ‘FILE NOT FOUND! 
UTIM3 DB UTIM4-UTIM3<1 
ASC 'VERIFY ERROR' 
UTIM4 DB UTIM5—UTIM4—1 
ASC ‘TAPE IS FULL' 
UTIM5 DB UTIM6-UTIM5~1 
ASC ‘WRITE PROTECTED! 
UTIM6 DB UTIM7—UTIM6—1 
ASC ‘FILE POSITION ERROR' 
UTIM7 DB  ®@FFH 


0374 
Q375 
9378 
9379 


0384 
0385 


0395 
039F 
03A3 
03A4 


03B8 . 


¥3B9 


—-83C8 
83C9 


03D8 
03D9 


O3E2 
B3E3 


Q3F3 
O3F4 


0400 
0489 


4410 
4420 
4430 
4440 
4450 


4460 
4470 


4480 
4490 
4500 
4510 


4520 
4530 


4540 
4550 


4560 
4570 


4580 
4590 


4600 
4610 


—64620 


SYSMC 


SYSMD 


SYSME 


SYSMF 


SYSMI 


SYSMO 


SYSMS 


SYSMT 


MSEND 


'CAN’ 


27H 


SYSMC-SYSMA~1 


"T AUTOSTART ' 


SYSMD-SYSMC-1 


"APPROX. CAPACITY (HEX) 


OYSME-SYSMD~1] 
"DONE! 
SYSMF-SYSME~1 


"ERROR COUNT (HEX) - 


SYSMI-SYSMF=1 
"FILE TYPE ERROR' 


SYSMO-SYSMI-1] 


"INVALID FILE ID' 


SYSMS-SYSMO~] 


‘FILE O.K.' 


SYSMT-SYSMS~1] 


"SIZING TAPE.sees' 


MSEND-SYSMT=1 


"TESTING s .aae! 


b oeen! 


0400 
9400 
04298 
6400 
0400 
B49 
0400 
0400 
06400 
B400 
0400 
0408 
0400 
0408 
0400 


ADRIN 
ADRNG 
CACE 
CAT 
CAT2 
CAT3 
CER 
CER2 
CER3 
CER4 
CERD5 
CERWP 
CHKA2 
CHKAS 
CURAD 
DFCB 
DWOUT 
ECAT 
ECER 
EGET 
ERMS2 
ERMSG 
ESAV 
EW TP 
FCB 
FCBAS 
FCBBG 
FCBEN 
FCBER 
FCBFP 
FCBHD 
FCBID 
FCBOP 


FCBRC > 


FCBTY 
GET 

GET@2 
GET 3 
GET@4 
GET@5 


FFF] 
FFFB 
FBF 3 
FBFC 
FBF8 
FBFA 
FBFE 
FBF5 
Q2E6 
FBF6 
FBF4 
FBF3 
FBF/ 
9884 
2296 
QOB2 
00B7 
GBC3 


4630 * 


4640 
4650 
4660 
4670 
4688 
4690 
4780 
4710 
4720 
4730 
4740 
4758 
4760 
4770 
4780 


2690 


0620 


* SYSTEM WORK AREAS 
* 


RAM 

CURAD 
FCB 

FCBRC 
FCBOP 
FCBFP 
FCBID 
FCBTY 
FCBBG 
FCBEN 
FCBAS 


FCBER 
* 


3830 


2780 
2080 
2608 
2620 
3948 
1870 
4240 
2558 
20120 
1740 


EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 


3870 


2760 
3820 
3864 


2280 
4250 
3788 


1948 


PARTI1-1] 
RAM~14 
RAM-1 2 
FCB+00 
FCB+01 
FCB+@ 2 
FCB+@3 
FCB+04 
FCB+@5 
FCB+07 
FCB+09 
FCB+11 


3918 


3988 


2370 3690 


;TOP OF RAM MEMORY 
;CURRENT OPEN ADDR 
;FILE CONTROL BLOCK 
;RETURN CODE | 
;OPTION CODE 
7;FILE POSITION 
;FILE ID 

;FILE TYPE 
;BEGIN. ADDR 
;ENDING ADDR 

; AUTOSTART 

;DATA ERROR ADDR 


2260 2830 3650 


1590 
1610 
1730 
1960 
1428 
1380 


0608 
1410. 


2748 
1988 
4249 
1042 
1470 
1782 
0760 
0630 
3660 
0740 
3582 


—6 3688 


0980 


3210 
3196 
9510 
2330 
2310 
2420 
2490 
26820 
2700 
0540 
1820 
3130 
102@ 
3299 
4500 
145@ 
2059 
3010 
3380 
4090 
1058 
4300 
4320 
3430 
4360 
4380 
0730 
0530 


1766 


1358 
1108 
2480 


2880 
46020 
1062 
2528 


1830 
1182 
3708 
0920 


3720 
3358 


2350 


2440 


0588 
2908 
4420 
2028 
4480 
4520 
2509 
4546 


1378 
1210 


3600 


2048 
2540 


1890 
1390 
3798 
1670 


3770 


4420 
4460 
2840 
4580 


4520 
4560 
4580 


2290 


2060 
2910 


3928 
2380 
3960 
1798 


3810 


3530 


4549 


4300 


2998 


2400 


2860 
3440 


3140 
2460 
3980 
1840 


3850 


4460 


3498 


3548 


3240 
3758 
1908 


3898 


4480 


3380 3398 3590 4150 


1920 2790 3000 3368 3500 


3930 
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